// impostazione di interprete forth
#ifndef __fstack_h__
#define __fstack_h__

#include <iostream.h>
#include <string.h>

template <class C> class fstack {
public :
   fstack() { sp = 0 ; }
   C top() { return fc[ sp - 1 ] ; }
   C pop() { sp-- ; return fc[ sp ] ; }
   bool push( C c ) { fc[ sp ] = c ; sp++ ; return 1 ; }
private :
   int sp ;
   C fc[ 100 ] ;
} ;

#endif
